home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Text < prev    next >
Text File  |  1994-06-18  |  1KB  |  28 lines
  1. # FILE: aliases.Text
  2. #
  3. # DESC: Aliases for typing aids
  4. #
  5. # LAST UPDATE: 01/06/93 4:56:47 AM 
  6.  
  7.     electricAlias-def ÑText ÑText ÑText
  8.  
  9.     electricAlias-def ÑText "Ñmemo" "SUBJ: Ñ\rDATE: ñ╟date╚
  10.     \b    \bTO:   Ñ\rFROM: ñ{author}\r\rÑ"
  11.     electricAlias-def ÑText "Ñhaddr" "ñ{author}\rñ{haddr}\rñ{hcity}"
  12.     electricAlias-def ÑText "Ñletter" "
  13.     \b    \bñ╟sprintf %55s {}╚ñ{author}\rñ╟format %55s {}╚ñ{haddr}
  14.     \b    \bñ╟format %55s {}╚ñ{hcity}\rñ╟sprintf %55s {}╚ñ╟date╚\rÑ\r
  15.     \b    \bDear Ñ,\r\rÑ\r
  16.     \b    \bSincerely,\r\rñ{author}
  17.     \b    \b"
  18.     # use the following to number a list of items
  19.     electricAlias-def ÑText Ñi  "ñ╟set item 1; number \$item i╚."
  20.     electricAlias-def ÑText Ñii "ñ╟incr item; number \$item i╚. "
  21.     electricAlias-def ÑText ÑI  "ñ╟set item 1; number \$item I╚."
  22.     electricAlias-def ÑText ÑII "ñ╟incr item; number \$item I╚. "
  23.      electricAlias-def ÑText Ña  "ñ╟set item 1; number \$item a╚."
  24.     electricAlias-def ÑText Ñaa "ñ╟incr item; number \$item a╚. "
  25.      electricAlias-def ÑText ÑA  "ñ╟set item 1; number \$item A╚."
  26.     electricAlias-def ÑText ÑAA "ñ╟incr item; number \$item A╚. "
  27.  
  28.